home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / bgft302b.zip / BGFT300B.EXE / BGFTUXTL.SLT < prev    next >
Text File  |  1993-03-03  |  2KB  |  38 lines

  1. // Version 3.02 BackGround File Transfer
  2. // BGFTUXTL.SLT: Telix script for BGFT Xmodem-CRC upload.
  3. // Copyright (c) 1990-1993 Dirac Systems
  4. // Telix is a trademark of Exis Inc.
  5.  
  6. str command[80];                // Command string for BGFTOPT.
  7. str temp[80];                   // Temporary concatenation string.
  8. int updirlen;                   // Telix upload drive:directory str length.
  9. int extfilelen;                 // Telix external file maximum str length.
  10.  
  11. main()
  12. {
  13. command = "/q";                         // Start command line.
  14. strcat(command," /a");                  // Acknowledge any error.
  15. strcat(command," /r");
  16. itos(get_port(),temp);                  // Find out where we are connected.
  17. strcat(command,temp);                   // Reconnect existing comm port.
  18. strcat(command," /b");
  19. itos(get_baud(),temp);                  // Find out what is the baud rate.
  20. strcat(command,temp);                   // Set baud rate for resident.
  21. //
  22. //      BGFT requires a filename from Telix.
  23. //
  24. strcat(command," /u");                  // Set up upload.
  25. updirlen = strlen(_up_dir);             // Get unwanted Telix upld directory.
  26. extfilelen = strmaxlen(_ext_filespec);  // Get maximum length of Telix file.
  27. substr(_ext_filespec,updirlen,extfilelen,temp);    // Shave off upld dir.
  28. strcat(command,temp);                   // Put BGFT filename in '/u' command.
  29. //
  30. //      Xmodem-CRC Upload
  31. //
  32. strcat(command," /~1");                 // This protocol is Xmodem-CRC.
  33. strcat(command," /s");                  // Start to send file.
  34. prints(command);                        // Tell user the command string.
  35. run("bgftopt.exe",command,2);
  36. exittelix(0,0);                         // Leave Telix; don't hangup line.
  37. }                                       // Now enjoy background Xmodem-CRC upld.
  38.